From: Andreas Schwab Date: Sun, 8 Feb 2004 22:39:49 +0000 (+0000) Subject: (calc-convert-time-zones): Fix format string. X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~24208 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=cff45bb223d92e8cb45fdbe1185ffaf3d202552b;p=emacs.git (calc-convert-time-zones): Fix format string. --- diff --git a/lisp/calc/calc-forms.el b/lisp/calc/calc-forms.el index e5a0d6ae7fd..31f9e776a0c 100644 --- a/lisp/calc/calc-forms.el +++ b/lisp/calc/calc-forms.el @@ -1,6 +1,6 @@ ;;; calc-forms.el --- data format conversion functions for Calc -;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc. +;; Copyright (C) 1990, 1991, 1992, 1993, 2001, 2004 Free Software Foundation, Inc. ;; Author: David Gillespie ;; Maintainers: D. Goel @@ -212,11 +212,11 @@ ", to zone: ")))) (if (stringp old) (setq old (math-read-expr old))) (if (eq (car-safe old) 'error) - (error "Error in expression: " (nth 1 old))) + (error "Error in expression: %S" (nth 1 old))) (if (equal new "") (setq new "local")) (if (stringp new) (setq new (math-read-expr new))) (if (eq (car-safe new) 'error) - (error "Error in expression: " (nth 1 new))) + (error "Error in expression: %S" (nth 1 new))) (calc-enter-result 1 "tzcv" (list 'calcFunc-tzconv (calc-top-n 1) old new)))))